﻿Imports EVOLTA.Promocion.Bl.Bc
Imports EVOLTA.Promocion.Bl.Be

Partial Class controles_wucConsultarStock
    Inherits System.Web.UI.UserControl

    Private Evolta As New Eevolta
    Private _idProyecto As Int32 = 0
    Private _idEtapa As Int32 = 0
    Private _chkVisible As Boolean = False
    Private tpoInmueble As List(Of EtpoInmueble) = Nothing

    Enum estadoInmueble
        disponible = 1
        separacion = 2
        ctaInicial = 3
        financiamiento = 4
        cancelada = 5
        entregado = 6
        temporal = 7
        inic_fincCancelado = 8
        venta = 9
    End Enum
    Public Property idProyecto() As Int32
        Get
            Return _idProyecto
        End Get
        Set(ByVal value As Int32)
            _idProyecto = value
        End Set
    End Property
    Public Property idEtapa() As Int32
        Get
            Return _idEtapa
        End Get
        Set(ByVal value As Int32)
            _idEtapa = value
        End Set
    End Property
    Public Property chkVisible() As Boolean
        Get
            Return _chkVisible
        End Get
        Set(ByVal value As Boolean)
            _chkVisible = value
        End Set
    End Property

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            cargarSession()
            cargarTipoInmueble()
        End If
        hdfEmpresa.Value = CType(Session("descEmpresa"), String)
    End Sub
    Private Sub cargarTipoInmueble()
        Dim descEmpresa As String = CType(Session("descEmpresa"), String)
        tpoInmueble = RtpoInmueble.SeleccionarTodo(descEmpresa, True)
        Session("tpoInmueble") = tpoInmueble
        selTipoInmueble.DataSource = tpoInmueble
        selTipoInmueble.DataTextField = "descTpoInmueble"
        selTipoInmueble.DataValueField = "idTpoInmueble"
        selTipoInmueble.DataBind()
    End Sub
    Protected Sub btnMostrar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnMostrar.Click
        Evolta = Session("sEVOLTA")
        chkVisible = Evolta.chkVisible
        'selTipoInmueble = selTipoInmueble.Value
        consultarStock(Evolta.idProyecto, Evolta.idEtapa)
    End Sub

    Private Function Meses(ByVal mes As Int32) As String
        If mes = 1 Then
            Meses = "Ene"
        End If
        If mes = 2 Then
            Meses = "Feb"
        End If
        If mes = 3 Then
            Meses = "Mar"
        End If
        If mes = 4 Then
            Meses = "Abr"
        End If
        If mes = 5 Then
            Meses = "May"
        End If
        If mes = 6 Then
            Meses = "Jun"
        End If
        If mes = 7 Then
            Meses = "Jul"
        End If
        If mes = 8 Then
            Meses = "Ago"
        End If
        If mes = 9 Then
            Meses = "Set"
        End If
        If mes = 10 Then
            Meses = "Oct"
        End If
        If mes = 11 Then
            Meses = "Nov"
        End If
        If mes = 12 Then
            Meses = "Dic"
        End If
        Return Meses
    End Function

    Private Sub consultarStock(ByVal pIdProyecto As Int32, ByVal pIdEtapa As Int32)
        Dim descEmpresa As String = CType(Session("descEmpresa"), String)
        Dim edificios As List(Of EedificioManz) = RedificioManz.SeleccionarTodo(descEmpresa, False, pIdProyecto, pIdEtapa, selTipoInmueble.Value)
        Dim inmuebles As List(Of EunidInmobiliarias) = RunidInmobiliarias.SeleccionarTodoXAll(descEmpresa, False, pIdProyecto, pIdEtapa)

        Dim wfechaIni As Date = DateAdd("d", -1, Now())
        Dim wfechaFin As Date = DateAdd("d", -1, Now())
        Dim FechaIni As String = Year(wfechaIni) & Right("0" & CStr(Month(wfechaIni)), 2) & Right("0" & CStr(Day(wfechaIni)), 2)
        Dim FechaFin As String = Year(wfechaFin) & Right("0" & CStr(Month(wfechaFin)), 2) & Right("0" & CStr(Day(wfechaFin)), 2)
        Dim strFechaIni As String = Right("0" & CStr(Day(wfechaIni)), 2) & "/" & Right("0" & CStr(Month(wfechaIni)), 2) & "/" & Year(wfechaIni)
        Dim strFechaFin As String = Right("0" & CStr(Day(wfechaFin)), 2) & "/" & Right("0" & CStr(Month(wfechaFin)), 2) & "/" & Year(wfechaFin)

        Dim reportegerencial As List(Of EReporteGerencial) = RreporteGerencial.ObtenerDatosReporteGerencial(descEmpresa, strFechaIni, strFechaFin, pIdProyecto, pIdEtapa)
        Dim mensaje As New StringBuilder
        Dim pisos As Integer = 0
        Dim piso As Integer = 0
        tblInmueble.BorderWidth = 2
        tblInmueble.BackColor = Drawing.Color.FromArgb(244, 244, 244)
        tblInmueble.BorderColor = Drawing.Color.FromArgb(147, 147, 147)

        'Genera Grafico Reporte Gerencial ---------------------

        Dim NL As String = "<br/>"
        Dim wB As String = "<b>"
        Dim wBF As String = "</b>"

        Dim ArrGrafico(20) As String
        Dim ArrMeses(11) As String

        Dim ColumnaIzquierda As String = "<td valign='bottom' style='font-size: x-small; text-align: center; border-left-style: solid; border-left-width: thin; border-left-color: black; border-bottom-style: solid; border-bottom-width: thin; border-bottom-color: Black; border-top-style: solid; border-top-width: thin; border-top-color: Black;'>"
        Dim ColumnaNormal As String = "<td valign='bottom' style='font-size: x-small; text-align: center; border-bottom-style: solid; border-bottom-width: thin; border-bottom-color: Black; border-top-style: solid; border-top-width: thin; border-top-color: Black;'>"
        Dim ColumnaDerecha As String = "<td valign='bottom' style='font-size: x-small; text-align: center; border-bottom-style: solid; border-bottom-width: thin; border-bottom-color: Black; border-top-style: solid; border-top-width: thin; border-top-color: Black; border-bottom-color: Black; border-right-style: solid; border-right-width: thin; border-right-color: Black;'>"
        Dim Tabla01 As String = "<table border='0' cellpadding='0' cellspacing='0'><tr><td style='height:"
        Dim Tabla02Yellow As String = "px; vertical-align: bottom; border-style: solid; border-width: 1px; width: 20px; text-align: center; font-size: small; background-color: #FFFF00;'></td></tr></table></td>"
        Dim Tabla02Green As String = "px; vertical-align: bottom; border-style: solid; border-width: 1px; width: 20px; text-align: center; font-size: small; background-color: #00FF00;'></td></tr></table></td>"
        Dim Tabla02Red As String = "px; vertical-align: bottom; border-style: solid; border-width: 1px; width: 20px; text-align: center; font-size: small; background-color: #FF0000;'></td></tr></table></td>"
        'Dim Tabla02Yellow As String = "px; vertical-align: bottom; border-style: solid; border-width: 1px; width: 20px; text-align: center; font-size: small; '></td></tr></table></td>"
        'Dim Tabla02Green As String = "px; vertical-align: bottom; border-style: solid; border-width: 1px; width: 20px; text-align: center; font-size: small; '></td></tr></table></td>"
        'Dim Tabla02Red As String = "px; vertical-align: bottom; border-style: solid; border-width: 1px; width: 20px; text-align: center; font-size: small; '></td></tr></table></td>"
        Dim Leyenda As String = "<td><table border='0' cellpadding='0' cellspacing='2'><tr><td style='height:10px; width: 20px; border-style: solid; border-width: 1px; background-color:#FFFF00;'></td><td style='font-size: small; text-align: left;'>&nbsp;Proformas</td></tr><tr><td style='height:10px; width: 20px; border-style: solid; border-width: 1px; background-color:#00FF00;'></td><td style='font-size: small; text-align: left;'>&nbsp;Separaciones</td></tr><tr><td style='height:10px; width: 20px; border-style: solid; border-width: 1px; background-color:#FF0000;'></td><td style='font-size: small; text-align: left;'>&nbsp;Ventas</td></tr></table></td>"
        'Dim Leyenda As String = "<td><table border='0' cellpadding='0' cellspacing='2'><tr><td style='height:10px; width: 20px; border-style: solid; border-width: 1px; '></td><td style='font-size: small; text-align: left;'>&nbsp;Proformas</td></tr><tr><td style='height:10px; width: 20px; border-style: solid; border-width: 1px; '></td><td style='font-size: small; text-align: left;'>&nbsp;Separaciones</td></tr><tr><td style='height:10px; width: 20px; border-style: solid; border-width: 1px; '></td><td style='font-size: small; text-align: left;'>&nbsp;Ventas</td></tr></table></td>"
        Dim Separador As String = "<td style='border-bottom-style: solid; border-bottom-width: thin; border-bottom-color: Black; border-top-style: solid; border-top-width: thin; border-top-color: Black;'>&nbsp;&nbsp;&nbsp;&nbsp;</td>"
        Dim Grupos As String = "<td colspan='3' style='font-size: x-small; text-align: center; font-weight: bold;'>"
        Dim SeparacionGrupo As String = "<td>&nbsp;&nbsp;&nbsp;&nbsp;</td>"

        For rg = 0 To reportegerencial.Count - 1
            If reportegerencial.ElementAt(rg).Tipogestion = 0 Then
                ArrGrafico(1) = reportegerencial.ElementAt(rg).Mes01
                ArrGrafico(4) = reportegerencial.ElementAt(rg).Mes02
                ArrGrafico(7) = reportegerencial.ElementAt(rg).Mes03
                ArrGrafico(10) = reportegerencial.ElementAt(rg).Mes04
                ArrGrafico(13) = reportegerencial.ElementAt(rg).Mes05
                ArrGrafico(16) = reportegerencial.ElementAt(rg).Mes06
            End If
            If reportegerencial.ElementAt(rg).Tipogestion = 1 Then
                ArrGrafico(2) = reportegerencial.ElementAt(rg).Mes01
                ArrGrafico(5) = reportegerencial.ElementAt(rg).Mes02
                ArrGrafico(8) = reportegerencial.ElementAt(rg).Mes03
                ArrGrafico(11) = reportegerencial.ElementAt(rg).Mes04
                ArrGrafico(14) = reportegerencial.ElementAt(rg).Mes05
                ArrGrafico(17) = reportegerencial.ElementAt(rg).Mes06
            End If
            If reportegerencial.ElementAt(rg).Tipogestion = 2 Then
                ArrGrafico(3) = reportegerencial.ElementAt(rg).Mes01
                ArrGrafico(6) = reportegerencial.ElementAt(rg).Mes02
                ArrGrafico(9) = reportegerencial.ElementAt(rg).Mes03
                ArrGrafico(12) = reportegerencial.ElementAt(rg).Mes04
                ArrGrafico(15) = reportegerencial.ElementAt(rg).Mes05
                ArrGrafico(18) = reportegerencial.ElementAt(rg).Mes06
            End If
            If reportegerencial.ElementAt(rg).Tipogestion = 8 Then
                ArrMeses(0) = reportegerencial.ElementAt(rg).Mes01
                ArrMeses(1) = reportegerencial.ElementAt(rg).Mes02
                ArrMeses(2) = reportegerencial.ElementAt(rg).Mes03
                ArrMeses(3) = reportegerencial.ElementAt(rg).Mes04
                ArrMeses(4) = reportegerencial.ElementAt(rg).Mes05
                ArrMeses(5) = reportegerencial.ElementAt(rg).Mes06
            End If
            If reportegerencial.ElementAt(rg).Tipogestion = 9 Then
                ArrMeses(6) = reportegerencial.ElementAt(rg).Mes01
                ArrMeses(7) = reportegerencial.ElementAt(rg).Mes02
                ArrMeses(8) = reportegerencial.ElementAt(rg).Mes03
                ArrMeses(9) = reportegerencial.ElementAt(rg).Mes04
                ArrMeses(10) = reportegerencial.ElementAt(rg).Mes05
                ArrMeses(11) = reportegerencial.ElementAt(rg).Mes06
            End If
        Next
        Dim Max As Int32 = 0
        For k = 1 To 18
            If ArrGrafico(k) > Max Then
                Max = ArrGrafico(k)
            End If
        Next
        Dim strBodyGraf As String = ""
        Dim tamCol As Int32
        strBodyGraf = "<b><u>Tendencia de los últimos seis meses</u></b>" & NL & NL & Chr(13)
        strBodyGraf = strBodyGraf & "<table cellpadding='0' align='center' cellspacing='8'><tr><td><table cellpadding='0' cellspacing='0'><tr style='height: 250px;'>"
        For g = 1 To 18
            If g = 1 Then
                strBodyGraf = strBodyGraf & ColumnaIzquierda & ArrGrafico(g)
            ElseIf g = 18 Then
                strBodyGraf = strBodyGraf & ColumnaDerecha & ArrGrafico(g)
            Else
                strBodyGraf = strBodyGraf & ColumnaNormal & ArrGrafico(g)
            End If
            If ArrGrafico(g) = 0 Then
                TamCol = 0
            Else
                TamCol = Int((ArrGrafico(g) * 250) / Max)
            End If
            strBodyGraf = strBodyGraf & Tabla01 & TamCol
            If g = 1 Or g = 4 Or g = 7 Or g = 10 Or g = 13 Or g = 16 Then
                strBodyGraf = strBodyGraf & Tabla02Yellow
            ElseIf g = 2 Or g = 5 Or g = 8 Or g = 11 Or g = 14 Or g = 17 Then
                strBodyGraf = strBodyGraf & Tabla02Green
            Else
                If g <> 18 Then
                    strBodyGraf = strBodyGraf & Tabla02Red & Separador
                Else
                    strBodyGraf = strBodyGraf & Tabla02Red & "<td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>" & Leyenda & "</tr>"
                End If
            End If
        Next
        strBodyGraf = strBodyGraf
        strBodyGraf = strBodyGraf & "<tr>" & Grupos & Meses(ArrMeses(0)) & "-" & ArrMeses(6) & "</td>" & SeparacionGrupo
        strBodyGraf = strBodyGraf & Grupos & Meses(ArrMeses(1)) & "-" & ArrMeses(7) & "</td>" & SeparacionGrupo
        strBodyGraf = strBodyGraf & Grupos & Meses(ArrMeses(2)) & "-" & ArrMeses(8) & "</td>" & SeparacionGrupo
        strBodyGraf = strBodyGraf & Grupos & Meses(ArrMeses(3)) & "-" & ArrMeses(9) & "</td>" & SeparacionGrupo
        strBodyGraf = strBodyGraf & Grupos & Meses(ArrMeses(4)) & "-" & ArrMeses(10) & "</td>" & SeparacionGrupo
        strBodyGraf = strBodyGraf & Grupos & Meses(ArrMeses(5)) & "-" & ArrMeses(11) & "</td></tr>"
        strBodyGraf = strBodyGraf + "</table></td></tr></table>"
        ' strBody = strBody & strBodyGraf & "<hr />"

        ltrRepGerencial.Text = strBodyGraf

        '------------------------------------------------------
        Dim tc1 As Integer = 0
        Dim tr As New TableRow()
        For tc1 = 0 To edificios.Count - 1
            Dim tc As New TableCell()
            Dim tInterna As New Table With {.BorderWidth = 1, .CellSpacing = 0, .CellPadding = 0, .BackColor = Drawing.Color.FromArgb(244, 244, 244), .BorderColor = Drawing.Color.FromArgb(147, 147, 147), .BorderStyle = BorderStyle.Solid}
            Dim f As New TableRow With {.TableSection = TableRowSection.TableHeader, .CssClass = "captionInmueble"}
            Dim c As New TableCell With {.ColumnSpan = 10, .Text = edificios.ElementAt(tc1).nomEdiMzn, .HorizontalAlign = HorizontalAlign.Center}
            f.Controls.Add(c)
            tInterna.Controls.Add(f)
            Dim qtInmubXPiso = From d In inmuebles _
                               Where d.idEdiMzn = edificios.Item(tc1).idEdiMzn _
                               Order By d.nroPiso _
                               Group d By d.nroPiso _
                               Into Count()
            Dim qtInmubles = From d In inmuebles _
                             Where d.idEdiMzn = edificios.Item(tc1).idEdiMzn _
                             Order By d.nroPiso
            For ff As Integer = qtInmubXPiso.Count - 1 To 0 Step -1
                Dim fila As New TableRow
                fila.BorderColor = Drawing.Color.FromArgb(147, 147, 147)
                fila.BorderWidth = 1
                fila.BorderStyle = BorderStyle.Inset
                For Each inmub In qtInmubles
                    piso = inmub.nroPiso
                    If piso = qtInmubXPiso(ff).nroPiso Then
                        Dim columna As New TableCell
                        columna.BorderColor = Drawing.Color.FromArgb(147, 147, 147)
                        columna.BorderWidth = 1
                        columna.BorderStyle = BorderStyle.Inset
                        Dim tableColor As New Table
                        tableColor.CellPadding = 0
                        tableColor.CellSpacing = 0
                        tableColor.HorizontalAlign = HorizontalAlign.Center
                        Dim tcfLeyenda As New TableRow
                        Dim tccLeyenda As New TableCell
                        Dim tcFila As New TableRow
                        Dim tcColm As New TableCell

                        Select Case inmub.EestadoInmueble.idEstadoInmueble & inmub.tpoGestion
                            Case estadoInmueble.separacion & "1"
                                tcColm.CssClass = "UnidadesSeparacion"
                                tccLeyenda.CssClass = ""
                            Case estadoInmueble.ctaInicial & "1"
                                tcColm.CssClass = "UnidadesSinMinuta"
                                tccLeyenda.CssClass = ""
                            Case estadoInmueble.financiamiento & "1"
                                tcColm.CssClass = "UnidadesSinMinuta"
                                tccLeyenda.CssClass = ""
                            Case estadoInmueble.cancelada & "1"
                                tcColm.CssClass = "UnidadesSinMinuta"
                                tccLeyenda.CssClass = ""
                            Case estadoInmueble.inic_fincCancelado & "1"
                                tcColm.CssClass = "UnidadesSinMinuta"
                                tccLeyenda.CssClass = ""
                            Case estadoInmueble.separacion & "2"
                                tcColm.CssClass = "UnidadesNegociado"
                                tccLeyenda.CssClass = ""
                            Case estadoInmueble.ctaInicial & "2"
                                tcColm.CssClass = "UnidadesNegociado"
                                tccLeyenda.CssClass = "ctaInicial"
                            Case estadoInmueble.financiamiento & "2"
                                If inmub.idFormaPago <> 3 Then
                                    tcColm.CssClass = "UnidadesNegociado"
                                    tccLeyenda.CssClass = "financiamiento"
                                Else
                                    tcColm.CssClass = "UnidadesNegociado"
                                    tccLeyenda.CssClass = "financiamientoDirecto"
                                End If
                            Case estadoInmueble.inic_fincCancelado & "2"
                                tcColm.CssClass = "UnidadesNegociado"
                                tccLeyenda.CssClass = "ctaInicial_FinacCancelado"
                            Case estadoInmueble.cancelada & "2"
                                tcColm.CssClass = "UnidadesCancelada"
                                tccLeyenda.CssClass = ""
                            Case estadoInmueble.entregado & "2"
                                tcColm.CssClass = "UnidadesEntregada"
                                tccLeyenda.CssClass = ""
                            Case estadoInmueble.temporal & "0"
                                tcColm.CssClass = "UnidadesTemporal"
                                tccLeyenda.CssClass = ""
                            Case estadoInmueble.venta & "2"
                                tcColm.CssClass = "UnidadesNegociado"
                                tccLeyenda.CssClass = ""
                            Case Else
                                If inmub.bloqueado = 1 Then
                                    tcColm.CssClass = "UnidadesBloqueado"
                                    tccLeyenda.CssClass = ""
                                Else
                                    tcColm.CssClass = "UnidadesDisponibles"
                                    tccLeyenda.CssClass = ""
                                End If
                        End Select
                        mensaje.Append(inmub.descTpoInmueble.Trim & "&nbsp;[N°&nbsp;" & inmub.nroInmueble.Trim)
                        mensaje.Append("]*Precio:&nbsp;" & inmub.valorVenta.ToString("#,###,##0.00"))
                        mensaje.Append("*Moneda:" & inmub.descMoneda.Trim)
                        If inmub.bloqueado = 1 Then
                            mensaje.Append("*Estado:&nbsp;BLOQUEADO")
                        Else
                            mensaje.Append("*Estado:&nbsp;" & inmub.EestadoInmueble.descEstadoInmueble.Trim)
                        End If
                        '*** JFG
                        Dim AreaOcupada As String
                        AreaOcupada = CDbl(inmub.areaConstruida.ToString) + CDbl(inmub.areaVendible.ToString)
                        '***
                        mensaje.Append("*Cliente:&nbsp;" & inmub.clienteVenta.Trim)
                        mensaje.Append("*Número&nbsp;de&nbsp;baño:&nbsp;" & inmub.EmodeloInmueble.nroBaños.ToString)
                        mensaje.Append("*Número&nbsp;de&nbsp;habitación:&nbsp;" & inmub.EmodeloInmueble.nroHabitaciones.ToString)
                        mensaje.Append("*Área&nbsp;construida:&nbsp;" & inmub.areaConstruida.ToString)
                        mensaje.Append("*Área&nbsp;Terraza&nbsp;Jardin:&nbsp;" & inmub.areaVendible.ToString)
                        'mensaje.Append("*Tiene&nbsp;patio&nbsp;/&nbsp;jardín&nbsp;/&nbsp;terraza:&nbsp;")
                        'Select Case inmub.EmodeloInmueble.patioJardin
                        '   Case 0 : mensaje.Append("NO")
                        '    Case 1 : mensaje.Append("SI")
                        'End Select
                        'mensaje.Append("*Área&nbsp;patio&nbsp;/&nbsp;jardín&nbsp;/&nbsp;terraza:&nbsp;" & inmub.EmodeloInmueble.areaPatio.ToString)
                        mensaje.Append("*Área&nbsp;Ocupada:&nbsp;" & AreaOcupada)
                        mensaje.Append("*Vendedor:&nbsp;" & inmub.Vendedor.ToString)
                        If tccLeyenda.CssClass.Length > 0 Then
                            tcfLeyenda.Cells.Add(tccLeyenda)
                            tableColor.Rows.Add(tcfLeyenda)
                        End If
                        tcColm.Text = inmub.nroInmueble.Trim
                        tcFila.Cells.Add(tcColm)
                        tableColor.Rows.Add(tcFila)
                        columna.Controls.Add(tableColor)
                        columna.Attributes.Add("onmouseover", "showMsg(this,'" & mensaje.ToString & "',event)")
                        columna.Attributes.Add("onmouseout", "hideMsg()")
                        fila.Cells.Add(columna)
                        mensaje.Length = 0
                    End If
                Next
                tInterna.Controls.Add(fila)
            Next
            tc.Controls.Add(tInterna)
            tc.VerticalAlign = VerticalAlign.Top
            tr.Cells.Add(tc)
            tblInmueble.Rows.Add(tr)
        Next tc1
        lblDisponibles.Text = (From u As EunidInmobiliarias In inmuebles _
                              Where u.EestadoInmueble.idEstadoInmueble = estadoInmueble.disponible _
                              AndAlso u.tpoGestion = 0 _
                              AndAlso u.EmodeloInmueble.EtpoInmueble.idTpoInmueble = selTipoInmueble.Value _
                              AndAlso u.bloqueado <> 1 _
                              Select u.idUndInmob).Count().ToString
        lblSeparacionTemporal.Text = (From u As EunidInmobiliarias In inmuebles _
                                      Where u.EestadoInmueble.idEstadoInmueble = estadoInmueble.temporal _
                                      AndAlso u.tpoGestion = 0 _
                                      AndAlso u.EmodeloInmueble.EtpoInmueble.idTpoInmueble = selTipoInmueble.Value _
                                      Select u.idUndInmob).Count().ToString
        lblSeparacion.Text = (From u As EunidInmobiliarias In inmuebles _
                              Where u.EestadoInmueble.idEstadoInmueble = estadoInmueble.separacion _
                              AndAlso u.tpoGestion = 1 _
                              AndAlso u.EmodeloInmueble.EtpoInmueble.idTpoInmueble = selTipoInmueble.Value _
                              Select u.idUndInmob).Count().ToString
        lblPagoSinMinuta.Text = (From u As EunidInmobiliarias In inmuebles _
                                 Where u.EestadoInmueble.idEstadoInmueble > estadoInmueble.separacion _
                                 AndAlso u.tpoGestion = 1 _
                                 AndAlso u.EmodeloInmueble.EtpoInmueble.idTpoInmueble = selTipoInmueble.Value _
                                 Select u.idUndInmob).Count().ToString
        lblVenta.Text = (From u As EunidInmobiliarias In inmuebles _
                                 Where (u.EestadoInmueble.idEstadoInmueble = estadoInmueble.separacion _
                                 OrElse u.EestadoInmueble.idEstadoInmueble = estadoInmueble.venta) _
                                 AndAlso u.tpoGestion = 2 _
                                 AndAlso u.EmodeloInmueble.EtpoInmueble.idTpoInmueble = selTipoInmueble.Value _
                                 Select u.idUndInmob).Count().ToString
        lblCuotaInicial.Text = (From u As EunidInmobiliarias In inmuebles _
                                Where u.EestadoInmueble.idEstadoInmueble = estadoInmueble.ctaInicial _
                                AndAlso u.tpoGestion = 2 _
                                AndAlso u.EmodeloInmueble.EtpoInmueble.idTpoInmueble = selTipoInmueble.Value _
                                Select u.idUndInmob).Count().ToString
        lblInicial_FincCancelado.Text = (From u As EunidInmobiliarias In inmuebles _
                                         Where u.EestadoInmueble.idEstadoInmueble = estadoInmueble.inic_fincCancelado _
                                         AndAlso u.tpoGestion = 2 _
                                         AndAlso u.idFormaPago <> 3 _
                                         AndAlso u.EmodeloInmueble.EtpoInmueble.idTpoInmueble = selTipoInmueble.Value _
                                         Select u.idUndInmob).Count().ToString
        lblFinanciamiento.Text = (From u As EunidInmobiliarias In inmuebles _
                                  Where u.EestadoInmueble.idEstadoInmueble = estadoInmueble.financiamiento _
                                  AndAlso u.tpoGestion = 2 _
                                  AndAlso u.idFormaPago <> 3 _
                                  AndAlso u.EmodeloInmueble.EtpoInmueble.idTpoInmueble = selTipoInmueble.Value _
                                  Select u.idUndInmob).Count().ToString
        lblFinanciamientoDirecto.Text = (From u As EunidInmobiliarias In inmuebles _
                                         Where u.EestadoInmueble.idEstadoInmueble = estadoInmueble.financiamiento _
                                         AndAlso u.tpoGestion = 2 _
                                         AndAlso u.idFormaPago = 3 _
                                         AndAlso u.EmodeloInmueble.EtpoInmueble.idTpoInmueble = selTipoInmueble.Value _
                                         Select u.idUndInmob).Count().ToString
        lblCancelado.Text = (From u As EunidInmobiliarias In inmuebles _
                             Where u.EestadoInmueble.idEstadoInmueble = estadoInmueble.cancelada _
                             AndAlso u.tpoGestion = 2 _
                             AndAlso u.EmodeloInmueble.EtpoInmueble.idTpoInmueble = selTipoInmueble.Value _
                             Select u.idUndInmob).Count().ToString
        lblEntregado.Text = (From u As EunidInmobiliarias In inmuebles _
                             Where u.EestadoInmueble.idEstadoInmueble = estadoInmueble.entregado _
                             AndAlso u.tpoGestion = 2 _
                             AndAlso u.EmodeloInmueble.EtpoInmueble.idTpoInmueble = selTipoInmueble.Value _
                             Select u.idUndInmob).Count().ToString
        lblBloqueado.Text = (From u As EunidInmobiliarias In inmuebles _
                             Where u.bloqueado = 1 _
                             AndAlso u.EmodeloInmueble.EtpoInmueble.idTpoInmueble = selTipoInmueble.Value _
                             Select u.idUndInmob).Count().ToString
        tpoInmueble = CType(Session("tpoInmueble"), List(Of EtpoInmueble))
        Dim nomTpoInm As String = Nothing
        If selTipoInmueble.Value = 0 Then
            lblTotales.Text = "Totales"
        Else
            If selTipoInmueble.Value = 7 Then
                nomTpoInm = tpoInmueble.ElementAt(selTipoInmueble.Value).descTpoInmueble.ToLower() + " : "
            Else
                nomTpoInm = tpoInmueble.ElementAt(selTipoInmueble.Value).descTpoInmueble.ToLower() + "s : "
            End If
            lblTotales.Text = "Total de " + nomTpoInm + _
                              (From u As EunidInmobiliarias In inmuebles _
                               Where u.descTpoInmueble.ToLower = tpoInmueble.ElementAt(selTipoInmueble.Value).descTpoInmueble.ToLower() _
                               Select u.idUndInmob).Count().ToString
        End If
        If hdfEmpresa.Value.ToUpper = "ECARAL" Then
            lblSepPagos2.Text = "Vendidos"
            udtPagos2.Update()
        End If
        upTotales.Update()
        upEdificio.Update()
    End Sub
    Public Sub cargarSession()
        Try
            Evolta = Session("sEVOLTA")
            If Not Evolta Is Nothing Then
                Me.idProyecto = CType(Evolta.idProyecto, Int32)
                Me.idEtapa = CType(Evolta.idEtapa, Int32)
                Me.chkVisible = Evolta.chkVisible
            End If
        Catch ex As Exception
            Response.Redirect(ConfigurationManager.AppSettings("cerrar").ToString)
        End Try
    End Sub

End Class
